unit MT4DataTypes;

interface

{$DEFINE LOG_ON}
{$UNDEF LOG_ON}

const

  BUFFER_LENGTH=500000;

type

  TArrOfDouble=array[0..BUFFER_LENGTH-1] of double;
  TArrOfInteger=array[0..BUFFER_LENGTH-1] of longint;


  procedure Log(Msg:String);

implementation

uses SysUtils;

procedure Log(Msg:String);
var f:textfile;
begin
  {$IFDEF LOG_ON}
  assignfile(f,'C:\Temp\MT4API.log');
  append(f);

  try
    writeln(f,DateTimeToStr(Time),': ',Msg);
  finally
    CloseFile(f);
  end;
  {$ENDIF}
end;

end.
